(rmail-get-new-mail): Run rmail-before-get-new-mail-hook.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e26563e6ab92639da4f9e084d6405b2d43694ba6..61cc9938870d9d5f5b415d3706b5c00708f046d0 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -891,6 +891,7 @@ It returns t if it got any new messages."
   (interactive
    (list (if current-prefix-arg
             (read-file-name "Get new mail from file: "))))
+  (run-hooks 'rmail-before-get-new-mail-hook)
   ;; If the disk file has been changed from under us,
   ;; revert to it before we get new mail.
   (or (verify-visited-file-modtime (current-buffer))